home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / gs_ciddc.ps < prev    next >
Encoding:
Text File  |  2002-02-22  |  7.7 KB  |  209 lines
  1. %    Copyright (C) 1994, 1996, 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_ciddc.ps,v 1.7 2002/02/21 23:14:05 igor Exp $
  17. % Define Decoding and CIDDecoding resource categories and related procsets.
  18.  
  19. languagelevel 2 .setlanguagelevel
  20. currentglobal true setglobal
  21.  
  22. %----------------ParseDecoding procset----------------------------
  23.  
  24. /ParseDecoding <<
  25.  
  26. /Parse    % <resource_name> <num_tokens> Parse -
  27. { dict begin                                  % /ResName
  28.   0                                           % /ResName nCode
  29.   { currentfile token not {
  30.       exit
  31.     } if                                      % /ResName nCode token
  32.     dup type /integertype eq {                % /ResName nCode
  33.        exch pop
  34.     } {
  35.       1 index def                             % /ResName nCode
  36.     } ifelse
  37.   } loop                                      % /ResName nCode
  38.   pop                                         % /ResName
  39.   currentdict end /Decoding                   % /ResName <<inst>> /Decoding
  40.   defineresource pop
  41. } bind
  42.  
  43. >> /ProcSet defineresource pop
  44.  
  45. %----------------Decoding category----------------------------
  46.  
  47. /Generic /Category findresource dup length dict copy
  48. dup /InstanceType /dicttype put
  49. /Decoding exch /Category defineresource pop
  50.  
  51. %----------------ParseCMap_Inverse procset----------------------------
  52.  
  53. /ParseCMap_Inverse <<
  54.   /findresource { pop } bind
  55.   /defineresource { pop pop } bind
  56.   /dict {}
  57.   /def { pop pop } bind
  58.   /dup null
  59.   /begin { pop } bind
  60.   /end {}
  61.   /currentdict null
  62.   /CMapName null
  63.   /usecmap { pop } bind
  64.   /begincmap {}
  65.   /endcmap {}
  66.   /begincodespacerange { pop mark } bind
  67.   /endcodespacerange { cleartomark } bind
  68.   /beginnotdefrange { pop mark } bind
  69.   /endnotdefrange { cleartomark } bind
  70.   /beginbfchar { pop mark } bind
  71.   /endbfchar { pop mark } bind
  72.   /beginbfrange { begincidrange }
  73.   /endbfrange { endcidrange }
  74.   /begincidchar { beginbfchar }
  75.   /endcidchar { endbfchar }
  76.   /begincidrange { pop mark } bind
  77.   /endcidrange  { cleartomark } bind
  78. >>  % Just keep it on stack for a while.
  79.  
  80. % Now we define another dict for local binding, than merge it with the previous one :
  81. dup length 5 add dict begin
  82.  
  83.   /.Ranges 40 dict def % Key = CID/256, value = array of 256 integer codes.
  84.   //.Ranges /CIDCount 0 put
  85.  
  86.   /.StringToInt     % <string> .StringToInt <integer>
  87.   { 0 exch { exch 8 bitshift add } forall
  88.   } bind def
  89.  
  90.   /.SetCouple    % <I> <b> .SetCouple -
  91.   { exch                                    % b I
  92.     dup 256 idiv                            % b I I0
  93.     dup //.Ranges exch known not {
  94.       dup //.Ranges exch 256 array put
  95.     } if                                    % b I I0
  96.     //.Ranges exch get                      % b I [Range]
  97.     exch 256 mod                            % b [Range] I1
  98.     3 2 roll put                            %
  99.   } bind def
  100.  
  101.   /endcidrange
  102.   { % Writes the inversed CMap to .Ranges
  103.     counttomark 3 idiv {                    % (b) (e) I
  104.       exch .StringToInt                     % (b) I e
  105.       3 2 roll .StringToInt                 % I e b
  106.       % Note : this code does't handle multidimentional CID ranges.
  107.       % fixme : optimize below.
  108.       dup 3 2 roll exch sub 1 add           % I b d
  109.       { 2 copy //.SetCouple exec            % I b
  110.         1 add exch 1 add exch
  111.       } repeat                              % I b
  112.       pop                                   % I
  113.       dup //.Ranges /CIDCount get gt {      % I
  114.         dup //.Ranges exch /CIDCount exch put
  115.       } if                                  % I
  116.       pop
  117.     } repeat
  118.     pop % mark
  119.   } bind def
  120.  
  121.   /.PurgeDict   % <dict> .PurgeDict -
  122.   { { true
  123.       1 index { pop exch pop false exit
  124.       } forall
  125.       { exit
  126.       } if
  127.       1 index exch undef
  128.     } loop
  129.     pop
  130.   } bind def
  131.  
  132.   /.GetCIDDecoding         % - .GetCIDDEcoding <dict>
  133.   { //.Ranges dup length dict copy
  134.     //.Ranges //.PurgeDict exec
  135.     //.Ranges /CIDCount 0 put
  136.   } bind def
  137.  
  138. currentdict end
  139. exch copy % Merge the dicts - see above.
  140. /ProcSet defineresource pop
  141.  
  142. %----------------CIDDecoding category----------------------------
  143. % Note that we put all instances in global memory - see FindResource.
  144.  
  145. /Generic /Category findresource dup length dict copy
  146. begin
  147.   /Category /CIDDecoding def
  148.   /InstanceType /dicttype def
  149.  
  150.   /.CMapChooser <<
  151.     % This lists CMaps to inverse and unite for creating a CIDDecoding.
  152.     % Choose by FAPIcidfmap.Registry concatenated with TrueType encoding ID.
  153.     % Font renderer must provide the glyph substitution internally.
  154.  
  155.     /CNS1.Big5       [ /ETen-B5-H /ETen-B5-V ]
  156.     /CNS1.Unicode    [ /UniCNS-UCS2-H /UniCNS-UCS2-V]
  157.     /GB1.GB2312      [ /GBK-EUC-H /GBK-EUC-V ]
  158.     /GB1.Unicode     [ /UniGB-UCS2-H /UniGB-UCS2-V ]
  159.     /Japan1.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
  160.     /Japan1.Unicode  [ /UniJIS-UCS2-H  /UniJIS-UCS2-V]
  161.     /Japan2.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
  162.     /Japan2.Unicode  [ /UniHojo-UCS2-H ]
  163.     /Korea1.Johab    [ /KSC-Johab-V /KSC-Johab-H ]
  164.     /Korea1.Wansung  [ /KSCms-UHC-V /KSCms-UHC-H ]
  165.     /Korea1.Unicode  [ /UniKS-UCS2-H /UniKS-UCS2-V ]
  166.   >> def
  167.  
  168.   /.MakeInstance    % <name> .MakeInstance <inst>
  169.   { dup                                              % /Name /Name
  170.     //.CMapChooser exch .knownget not {
  171.       (Can't build /) print =string cvs print ( /CIDDecoding. ) =
  172.       /findresource cvx /undefinedresource signalerror
  173.     } if                                             % /Name [CMaps]
  174.     exch pop                                         % [CMaps]
  175.     /CMap /Category findresource                     % [CMaps] <CMapCategory>
  176.     /ParseCMap_Inverse /ProcSet findresource         % [CMaps] <CMapCategory> <PCI>
  177.     3 2 roll {                                       % <CMapCategory> <PCI> /CMapName
  178.       3 2 roll begin                                 % <PCI> /CMapName
  179.       dup =string ResourceFileName                   % <PCI> /CMapName (path)
  180.       currentdict end exch                           % <PCI> /CMapName <CMapCategory> (path)
  181.       (r) { file } stopped {                         % <PCI> /CMapName <CMapCategory> (path)
  182.         pop                         
  183.         (Can't find ) print print ( building a CIDDecoding resource. ) =
  184.         /findresource cvx /undefinedresource signalerror
  185.       } if                                           % <PCI> /CMapName <CMapCategory> file
  186.       3 index begin
  187.       cvx exec                                       % <PCI> /CMapName <CMapCategory>
  188.       end
  189.       exch pop exch                                  % <CMapCategory> <PCI>
  190.     } forall
  191.     exch pop begin                                   %
  192.     .GetCIDDecoding
  193.     end
  194.   } bind def
  195.  
  196.   /FindResource      % <name> FindResource <dict>
  197.   { currentglobal exch                               % bGlobal /InstName
  198.     true setglobal
  199.     dup //.MakeInstance exec                         % bGlobal /InstName <Inst>
  200.     DefineResource                                   % bGlobal <Inst>
  201.     exch setglobal                                   % <Inst>
  202.   } bind def
  203.  
  204. currentdict end
  205. /CIDDecoding exch /Category defineresource pop
  206.  
  207. setglobal
  208. .setlanguagelevel
  209.